keep = ls()
oldwd = getwd()

#Set working directory
setwd('./data/iowa_legislators')

##############################
#Make Suffrage Referenda Data#
##############################

#1: Create Iowa county-level data (votes, enlistment)
source('./make/make_iowa_counties.R')

#2: Merge county-level data to Iowa legislative constituencies, roll calls
source("./make/make_iowa_legislators_use.R")

#########
#Cleanup#
#########

rm(list = setdiff(ls(), c(keep, 'keep')))
setwd(oldwd)